home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / RIPPLE.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  821 b   |  11 lines
  1.  
  2. RIPPLE $MACRO  A,L,C                                                            
  3.        $IF  (L.V<4)++(C.L#=0)                                                   
  4.        INRIP :A:,:L:                                                            
  5.        $ELSE                                                                    
  6.        CALL RIP$       CALL FOR RIPPLE LOOP                                     
  7.        REF  RIP$                                                                
  8.        DATA :L:        FOR :L:-1 WORDS                                          
  9.        DATA :A:        FROM :A:+:L:-1                                           
  10.        $ENDIF                                                                   
  11.        $END